<%

    pageid = request("id")
    response.write(id)
    set conn=Server.CreateObject("ADODB.Connection")
    conn.Provider="Microsoft.Jet.OLEDB.4.0"
    conn.Open(Server.Mappath("/App_Data/sharewz.mdb"))
    set rs = Server.CreateObject("ADODB.recordset")
    sql = "SELECT id,number from tb_number where ID = " & pageid & ""
    rs.open sql,conn,1,3
    rs("number")=rs("number")+1 
    rs.update
    Response.write "document.write('"& rs("number") & "');"
    rs.close:Set rs=Nothing
    conn.Close:set conn=Nothing
    
        

%>